Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/getmoney/about.frm

Text File | 1995-05-08 | 6KB | 192 lines

VERSION 2.00
Begin Form AboutBox
   AutoRedraw      =   -1  'True
   BackColor       =   &H00808000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "About"
   ClientHeight    =   4350
   ClientLeft      =   2655
   ClientTop       =   2760
   ClientWidth     =   4065
   ControlBox      =   0   'False
   Height          =   4755
   Left            =   2595
   LinkMode        =   1  'Source
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4350
   ScaleWidth      =   4065
   Top             =   2415
   Width           =   4185
   Begin PictureBox Label3D1
      BackColor       =   &H000000FF&
      Height          =   1000
      Left            =   0
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   0
      Top             =   0
      Width           =   1000
      Begin CommandButton AboutOk
         Caption         =   "&OK"
         Default         =   -1  'True
         Height          =   492
         Left            =   840
         TabIndex        =   6
         Top             =   3480
         Width           =   2172
      End
      Begin Line Line1
         X1              =   120
         X2              =   3720
         Y1              =   2520
         Y2              =   2520
      End
      Begin Label Label1
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H00808000&
         Caption         =   "Camarillo, CA  93012-5425 USA"
         Height          =   240
         Index           =   10
         Left            =   372
         TabIndex        =   11
         Top             =   2160
         Width           =   3204
      End
      Begin Label Label1
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H00808000&
         Caption         =   "5241 Mission Oaks Blvd., #377"
         Height          =   240
         Index           =   9
         Left            =   444
         TabIndex        =   10
         Top             =   1920
         Width           =   3084
      End
      Begin Label Label1
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H00808000&
         Caption         =   "FAX: [phone]"
         Height          =   240
         Index           =   8
         Left            =   936
         TabIndex        =   9
         Top             =   1560
         Width           =   2100
      End
      Begin Label Label1
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H00808000&
         Caption         =   "UNREGISTERED COPY"
         ForeColor       =   &H000000C0&
         Height          =   240
         Index           =   5
         Left            =   720
         TabIndex        =   8
         Top             =   3000
         Width           =   2364
      End
      Begin Label Label1
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H00808000&
         Caption         =   "REGISTERED TO:"
         Height          =   252
         Index           =   4
         Left            =   960
         TabIndex        =   7
         Top             =   2640
         Width           =   1932
      End
      Begin Label Label1
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H00808000&
         Caption         =   "GetMoney Version"
         Height          =   195
         Index           =   0
         Left            =   1140
         TabIndex        =   5
         Top             =   120
         Width           =   1575
      End
      Begin Label Label1
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H00808000&
         Caption         =   "⌐ Copyright 1993, Graphic Impact"
         Height          =   240
         Index           =   1
         Left            =   288
         TabIndex        =   4
         Top             =   360
         Width           =   3396
      End
      Begin Label Label1
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H00808000&
         Caption         =   "All Rights Reserved"
         Height          =   240
         Index           =   2
         Left            =   924
         TabIndex        =   3
         Top             =   600
         Width           =   2004
      End
      Begin Label Label1
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H00808000&
         Caption         =   "Compuserve at 73027,3307"
         Height          =   240
         Index           =   3
         Left            =   624
         TabIndex        =   2
         Top             =   1320
         Width           =   2724
      End
      Begin Label Label1
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H00808000&
         Caption         =   "Michael Haschka:"
         Height          =   240
         Index           =   7
         Left            =   1056
         TabIndex        =   1
         Top             =   960
         Width           =   1812
      End
   End
End

Sub AboutOk_Click ()
    Unload AboutBox
End Sub

Sub Form_DblClick ()
Unload AboutBox
End Sub

Sub Form_Load ()


    Left = (Screen.Width - Width) \ 2
    Top = (Screen.Height - Height) \ 2

Label1(0).Caption = "GetMoney Version " + Versnum$
Label3D1.BorderThickness = 1
If RegStat = SerialNum$ Then
Label1(5).Caption = First + " " + Last
End If

End Sub